home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / statsbar / example.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  79 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5820
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Click here to change first section"
  18.       Height          =   375
  19.       Left            =   1440
  20.       TabIndex        =   0
  21.       Top             =   1920
  22.       Width           =   3735
  23.    End
  24.    Begin CommandButton Command2 
  25.       Caption         =   "Click Here to clear first section"
  26.       Height          =   375
  27.       Left            =   1440
  28.       TabIndex        =   1
  29.       Top             =   2400
  30.       Width           =   3735
  31.    End
  32.    Begin StatusBar StatusBar1 
  33.       BackColor       =   &H00C0C0C0&
  34.       Caption         =   "StatusBar1"
  35.       Prop18          =   0  'Down
  36.       Height          =   375
  37.       Left            =   0
  38.       Top             =   5160
  39.       Width           =   3375
  40.    End
  41.    Begin StatusBar StatusBar2 
  42.       BackColor       =   &H00C0C0C0&
  43.       Prop18          =   0  'Down
  44.       Height          =   375
  45.       Left            =   3720
  46.       Top             =   5160
  47.       Width           =   975
  48.    End
  49.    Begin StatusBar StatusBar3 
  50.       BackColor       =   &H00C0C0C0&
  51.       Prop18          =   0  'Down
  52.       Height          =   375
  53.       Left            =   4680
  54.       Top             =   5160
  55.       Width           =   855
  56.    End
  57.    Begin StatusBar StatusBar4 
  58.       BackColor       =   &H00C0C0C0&
  59.       Prop18          =   1  'Flat
  60.       Height          =   375
  61.       Left            =   5520
  62.       Top             =   5160
  63.       Width           =   1815
  64.    End
  65. End
  66. Sub Command1_Click ()
  67. statusbar1.caption = "Pretty Cool, Huh?"
  68. End Sub
  69.  
  70. Sub Command2_Click ()
  71. statusbar1.caption = ""
  72. End Sub
  73.  
  74. Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
  75. statusbar2.caption = Str$(x)
  76. statusbar3.caption = Str$(y)
  77. End Sub
  78.  
  79.